158

Beginner’s Guide to Code Algorithms

158

Other Functions continued

  If a > 0 Then

    UserForm1.TextBox1 =​ Left(UserForm1.TextBox1, Len(UserForm1.

TextBox1) -​ 1)

    Call CovidGraph

  End If

End Sub

Private Sub TextBox1_​KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal

Shift As Integer)

    If KeyCode =​ 13 Then

      Call CovidGraph

    End If

End Sub

11.8  CONCLUSION

Drawing graphical representations of data is a powerful way to communicate. This

chapter provides you with some advanced techniques on how to develop a visualiza­

tion of data that is available freely.

You learned several advanced techniques to:

• Plot graphs

• Build forms

• Retrieve and categorize high volumes of data

• Plot the data on a map

I invite you to extend this code to include the county information that is also available

from the website provided here.